;;;
;;;
;;;	Author:
;;;		Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;	http://www.paracadd.com
;;;	All rights reserved.
;;;
(defun c:tpan ()
  (setq vwtwst (getvar"viewtwist")
        tpang (*(/(- 0 vwtwst)pi)180)
  )
;  (setvar "snapang" ntwang)
  (setq pdist (ureal 1 "" "Horizontal pan distance" pdist))
  (command "._pan" "0,0" (strcat "@"(rtos pdist)"<"(rtos tpang))"")
)
(defun c:stz ()
  (if stait nil (load"stait"))
  (setq zmsta (ureal 1 "" "Zoom to Station" zmsta))
  (setq zmele (ureal 1 "" (strcat "Elevation at "(stait zmsta 2)) zmele))
  (command ".zoom" "c" (list zmsta (* zmele 10) 0) "")
)